home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / smaltalk / manchest.lha / MANCHESTER / manchester / 2.2 / mushrooms.st < prev    next >
Text File  |  1993-07-24  |  2KB  |  111 lines
  1. "    NAME        mushrooms
  2.     AUTHOR        miw@cs.man.ac.uk
  3.     FUNCTION some mushroom cursors 
  4.     ST-VERSIONS    2.2
  5.     PREREQUISITES     
  6.     CONFLICTS    
  7.     DISTRIBUTION      world
  8.     VERSION        1.1
  9.     DATE    22 Jan 1989
  10. SUMMARY    mushrooms
  11.     defines a number of new mushroom-based cursors.(2.2). MIW
  12. "!
  13. 'From Smalltalk-80, version 2, of April 1, 1983 on 19 February 1987 at 4:12:08 pm'!
  14.  
  15. Cursor addClassVarName: 'Poisonous'!
  16. Cursor addClassVarName: 'Edible'!
  17. Cursor addClassVarName: 'Inedible'!
  18.  
  19.  
  20. !Cursor class methodsFor: 'class initialization'!
  21.  
  22.  
  23. initializeMushroomCursors
  24.  
  25.     Poisonous _   (Cursor
  26.     extent: 16@16
  27.     fromArray: #(
  28.         2r11111100000
  29.         2r111111110000
  30.         2r1111111111000
  31.         2r1111111111000
  32.         2r1100110011000
  33.         2r1000110001000
  34.         2r1101111011000
  35.         2r111001110000
  36.         2r11111100000
  37.         2r1100011111100011
  38.         2r1111000110001111
  39.         2r111001110000
  40.         2r110000000
  41.         2r111001110000
  42.         2r1111000000001111
  43.         2r1100000000000011)
  44.     offset: -8@-12).
  45.  
  46.     Edible _   (Cursor
  47.     extent: 16@16
  48.     fromArray: #(
  49.         2r100000000000
  50.         2r10010011000000
  51.         2r1001000110000
  52.         2r100100100001000
  53.         2r10010110000100
  54.         2r1001110000100
  55.         2r100111111000010
  56.         2r100011111100010
  57.         2r100000000110010
  58.         2r100000000111010
  59.         2r10010000011100
  60.         2r10001111001100
  61.         2r1000000001110
  62.         2r110000110110
  63.         2r1111000011
  64.         2r1)
  65.     offset: -2@-2).
  66.  
  67.     Inedible _   (Cursor
  68.     extent: 16@16
  69.     fromArray: #(
  70.         2r1111000000
  71.         2r110000110000
  72.         2r11000000001100
  73.         2r100000000000010
  74.         2r1000011001000001
  75.         2r1111111001111111
  76.         2r1001000000
  77.         2r1000001001000001
  78.         2r110010000100110
  79.         2r1110000111000
  80.         2r11001100000
  81.         2r10110100000
  82.         2r11001100000
  83.         2r1101001011000
  84.         2r110000110000110
  85.         2r1000000000000001)
  86.     offset: -8@-8)
  87.  
  88.     "Cursor initializeMushroomCursors"! !
  89.  
  90. !Cursor class methodsFor: 'constants'!
  91.  
  92.  
  93. edible
  94.     "Yum yum"
  95.     ^Edible! !
  96.  
  97. !Cursor class methodsFor: 'constants'!
  98.  
  99.  
  100. inedible
  101.     "Yuk"
  102.     ^Inedible! !
  103.  
  104. !Cursor class methodsFor: 'constants'!
  105.  
  106. poisonous
  107.     "Death's head cursor"
  108.     ^Poisonous! !
  109.  
  110. Cursor initializeMushroomCursors! !
  111.